home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / BINARY.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  343b  |  27 lines
  1. cls
  2. locate ,10
  3. print "76543210"
  4. while inkey$<>chr$(27)
  5.  def seg = &H40
  6.  locate 2,1
  7.  call bin(peek(&H17))
  8.  locate 3,1
  9.  call bin(peek(&H18))
  10. wend
  11. end
  12.  
  13. sub bin(x) static
  14.  y=x
  15.  print y;
  16.  locate ,10
  17.  for i=7 to 0 step -1
  18.   if y>=(2^i) then
  19.    print "1";
  20.    y=y-(2^i)
  21.   else
  22.    print "0";
  23.   end if
  24.  next
  25.  print ""
  26. end sub
  27.